OUTPUT TO c:\bom_list.txt.
FOR EACH ps_mstr WHERE ps_comp BEGINS "251",
    EACH pt_mstr WHERE pt_part = ps_par AND CAN-DO ("FG-A,FG-B",pt_part_type)
    BREAK BY ps_par BY pt_part_type:
    IF LAST-OF(ps_par) THEN
    DISP ps_par pt_desc1  pt_part_type ps_comp WITH STREAM-IO WIDTH 150. 
END.
